home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d12
/
v9n07.arc
/
KILLER.BAS
< prev
next >
Wrap
BASIC Source File
|
1990-03-16
|
988b
|
30 lines
killer.bas
100 DEFINT A-Z
110 ON ERROR GOTO 330
120 CLS:KEY OFF:COLOR 15,0
130 CLS:LOCATE 12,24:LINE INPUT"ENTER FILESPEC TO OBLITERATE ";FILESPEC$
140 OPEN"I",1,FILESPEC$:CLOSE 'Check to see that file exists
150 OPEN"R",1,FILESPEC$,128
160 SZ=INT(LOF(1)/128)+1
170 LOCATE 14,24:PRINT"ARE YOU SURE YOU WANT TO DO THIS? (Y/N) ";
180 A$=INKEY$:IF A$="" THEN 180
190 IF A$="Y" OR A$="y" THEN 220
200 IF A$="N" OR A$="n" THEN CLOSE:FILESPEC$="":GOTO 130
210 GOTO 180
220 LOCATE 14,64:PRINT "Y";
230 FIELD# 1,128 AS ZERO$
240 LSET ZERO$=STRING$(128,5)
250 FOR RN=SZ TO 1 STEP -1
260 PUT 1,RN
270 LOCATE 16,39:PRINT USING"#,###";RN;
280 NEXT RN
290 CLOSE :KILL FILESPEC$
300 LOCATE 18,33:PRINT "PRESS A KEY TO CONTINUE";
310 A$=INKEY$:IF A$="" THEN 310
320 LOCATE 20,42:PRINT"END":SYSTEM
330 IF ERL=140 AND ERR=53 THEN BEEP:BEEP:LOCATE 12,53:PRINT"file not found ":FILESPEC$="":FOR X=1 TO 6000:NEXT X:RESUME 130
340 CLS:ON ERROR GOTO 0